open Signal;;
open Component;;
let test = Named(Var("a")) +^ Named(Var("b"))

let _ = 
    Var("test") := Named(Var("a")) +^ Named(Var("b"));
    Reg("c") := Named(Var("a")) +^ test;
    print_endline (string_of_comp ())